home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / DFUE / CIM / stuff / scripts / dos / fax_stfax.script < prev    next >
Encoding:
Text File  |  2000-01-01  |  1.5 KB  |  51 lines
  1.  
  2. ; $VER: fax_stfax_script 1.0beta1 (30.11.1999)
  3. ; Written by Jan-Erik Tervo
  4. ; ARexx and CIM V2 must be running
  5. ; This script was Created for debugging purposes only, feel free to customize it.
  6.  
  7. FAILAT 21
  8.  
  9.  
  10.      RUN >NIL: RequestChoice "CIM" "FAX Call Received" "OK"
  11.  
  12.  
  13.      IF EXISTS STFAX:STFax
  14.  
  15.             rx 'address CIM DEVICE_RELEASE'
  16.                     
  17.             IF ERROR
  18.                             
  19.                 RUN >NIL: RequestChoice "CIM" "Error !" "Ok"
  20.                            
  21.                ELSE
  22.                         
  23.                RUN >NIL: STFAX:STFax
  24.           
  25.                Sys:Rexxc/WaitForPort STFAX.1
  26.  
  27.                IF ERROR
  28.                               
  29.                    RUN >NIL: RequestChoice "CIM" "Error. ARexx port of STFax not found" "Ok"
  30.                  
  31.                   ELSE
  32.                                      
  33.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 AUTOANSWER OFF'
  34.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 DEVICE "Devs:serial.device" UNIT "0" BAUD "9600"'
  35.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 INITMODEM'
  36.                    
  37.                    sys:rexxc/rx >NIL: 'address STFAX.1 RECEIVE FAXCLASS 1'
  38.                                      
  39.                    WAIT 5
  40.                    sys:rexxc/rx >NIL: 'address STFAX.1 QUIT'
  41.                    WAIT 5
  42.                 ENDIF
  43.              
  44.              ENDIF
  45.              rx 'address CIM DEVICE_OPEN'
  46.           ELSE
  47.           RUN >NIL: RequestChoice "CIM" "Error. Fax Program not found" "Ok"
  48.      ENDIF
  49.  
  50.  
  51.